﻿Public Class Printing_Form

    Public Sub Imprimir(ByVal info_hoja As Object(), ByVal ruta As String)
        Dim P As New CRC_Imprimir
        P.Imprimir(info_hoja, ruta)
        Me.Dispose()
    End Sub

    Public Sub Imprimir_Para_Inspeccion(ByVal id_salon As Integer, ByVal ruta As String)
        Dim P As New CRC_Imprimir
        P.Imprimir_Para_Inspeccion(id_salon, ruta)
        Me.Dispose()
    End Sub

    Public Sub Imprimir_Inspeccion_Hecha(ByVal id_salon As Integer, ByVal ruta As String, Optional ByVal SOLO_CRC As Boolean = False)
        Dim P As New CRC_Imprimir
        P.Imprimir_Inspeccion(id_salon, ruta, SOLO_CRC)
        Me.Dispose()
    End Sub

    Public Sub Imprimir_Seguimiento_Inspeccion(ByVal ruta As String)
        Dim P As New CRC_Imprimir
        P.Imprimir_Seguimiento_Inspeccion(ruta)
        Me.Dispose()
    End Sub

End Class